home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / frmtest6.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-07-22  |  2.9 KB  |  106 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTest6 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   2736
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   3504
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form2"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2736
  14.    ScaleWidth      =   3504
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.CommandButton cmdSet 
  17.       Caption         =   "Set Position"
  18.       Height          =   372
  19.       Left            =   2160
  20.       TabIndex        =   8
  21.       Top             =   1620
  22.       Width           =   1212
  23.    End
  24.    Begin VB.TextBox txtHeight 
  25.       Height          =   288
  26.       Left            =   660
  27.       TabIndex        =   7
  28.       Top             =   1200
  29.       Width           =   2712
  30.    End
  31.    Begin VB.TextBox txtWidth 
  32.       Height          =   288
  33.       Left            =   660
  34.       TabIndex        =   5
  35.       Top             =   840
  36.       Width           =   2712
  37.    End
  38.    Begin VB.TextBox txtTop 
  39.       Height          =   288
  40.       Left            =   660
  41.       TabIndex        =   3
  42.       Top             =   480
  43.       Width           =   2712
  44.    End
  45.    Begin VB.TextBox txtLeft 
  46.       Height          =   288
  47.       Left            =   660
  48.       TabIndex        =   1
  49.       Top             =   120
  50.       Width           =   2712
  51.    End
  52.    Begin VB.Label Label4 
  53.       Caption         =   "Height:"
  54.       Height          =   252
  55.       Left            =   120
  56.       TabIndex        =   6
  57.       Top             =   1260
  58.       Width           =   492
  59.    End
  60.    Begin VB.Label Label3 
  61.       Caption         =   "Width:"
  62.       Height          =   252
  63.       Left            =   120
  64.       TabIndex        =   4
  65.       Top             =   900
  66.       Width           =   432
  67.    End
  68.    Begin VB.Label Label2 
  69.       Caption         =   "Top:"
  70.       Height          =   252
  71.       Left            =   120
  72.       TabIndex        =   2
  73.       Top             =   540
  74.       Width           =   432
  75.    End
  76.    Begin VB.Label Label1 
  77.       Caption         =   "Left:"
  78.       Height          =   252
  79.       Left            =   120
  80.       TabIndex        =   0
  81.       Top             =   180
  82.       Width           =   432
  83.    End
  84. Attribute VB_Name = "frmTest6"
  85. Attribute VB_GlobalNameSpace = False
  86. Attribute VB_Creatable = False
  87. Attribute VB_PredeclaredId = True
  88. Attribute VB_Exposed = False
  89. Option Explicit
  90. Public Sub RefreshPosition()
  91.    Dim w As sgWindow.Window
  92.    Set w = frmMain.g_wndTest
  93.    txtLeft.Text = w.Left
  94.    txtTop.Text = w.Top
  95.    txtWidth.Text = w.Width
  96.    txtHeight.Text = w.Height
  97. End Sub
  98. Private Sub cmdSet_Click()
  99.    Dim w As sgWindow.Window
  100.    Set w = frmMain.g_wndTest
  101.    w.Left = txtLeft.Text
  102.    w.Top = txtTop.Text
  103.    w.Width = txtWidth.Text
  104.    w.Height = txtHeight.Text
  105. End Sub
  106.